home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / plain / contrib / samples / extradefs.tex < prev    next >
Encoding:
Text File  |  1989-11-22  |  1.6 KB  |  59 lines
  1. %
  2. % Supplied by Kent McPherson
  3. %
  4. \def\trademark{{\ooalign
  5.    {\tiny \hfill \raise .085ex\hbox{R}\hfill \crcr
  6.     \scriptsize \mathhexbox20D}}}
  7. %
  8. % Supplied by Kent McPherson
  9. %
  10. \newlength{\ulength}
  11. \newcommand{\uline}[2]{
  12.  \settowidth{\ulength}{#2}
  13.  \parbox{\ulength}{
  14.    {#2} \\ [-.75\baselineskip]
  15.    \rule{\ulength}{#1}}
  16. }
  17. %
  18. % Supplied by Kent McPherson
  19. %
  20. \newcount\@outlinedepth \@outlinedepth = 0
  21.  
  22. \@definecounter{outlinei}
  23. \@definecounter{outlineii}
  24. \@definecounter{outlineiii}
  25. \@definecounter{outlineiv}
  26.  
  27. \def\outline{\ifnum \@outlinedepth >3 \@toodeep\else
  28.       \advance\@outlinedepth \@ne
  29.       \edef\@outlinectr{outline\romannumeral\the\@outlinedepth}\list
  30.       {\csname label\@outlinectr\endcsname}{\usecounter
  31.         {\@outlinectr}\def\makelabel##1{\hss\llap{##1}}}\fi}
  32.  
  33. \let\endoutline =\endlist
  34.  
  35. \def\labeloutlinei{\Roman{outlinei}.}
  36. \def\theoutlinei{\Roman{outlinei}}
  37. \def\labeloutlineii{\Alph{outlineii}.}
  38. \def\theoutlineii{\Alph{outlineii}}
  39. \def\p@outlineii{\theoutlinei}
  40. \def\labeloutlineiii{\arabic{outlineiii}.}
  41. \def\theoutlineiii{\arabic{outlineiii}}
  42. \def\p@outlineiii{\theoutlinei(\theoutlineii)}
  43. \def\labeloutlineiv{\alph{outlineiv}.}
  44. \def\theoutlineiv{\alph{outlineiv}}
  45. \def\p@outlineiv{\p@outlineiii\theoutlineiii}
  46. %
  47. % Supplied by Kent McPherson
  48. %
  49. %
  50. % Produce a list of MIL documents
  51. \def\documentlabel#1{\def\\{\egroup\hbox\bgroup}
  52.     \raisebox{0pt}[2.5ex][0ex]{\vtop{\hbox\bgroup#1\egroup}} \hfill}
  53. \def\documentlist{\list{}{\labelwidth=10em 
  54.     \advance\labelwidth\labelsep
  55.     \leftmargin\labelwidth \advance\leftmargin\labelsep 
  56.     \advance\leftmargin 2\parindent 
  57.     \let\makelabel\documentlabel \raggedright}}
  58. \let\enddocumentlist=\endlist
  59.